CAAURANUSPlanet <-
function(Year){
.Call("URANUSPlanet", Year)
}
